home *** CD-ROM | disk | FTP | other *** search
/ Software USA 4 #8 / Software USA Volume 4.08.iso / mac / LifeStyles / ComicBase / ComicBase.sea / ComicBase 3 Mac Demo / ComicBase 3 Demo.rsrc / LENS_148_Registered To < prev    next >
Text File  |  1998-02-04  |  4KB  |  90 lines
  1. ItemType: WIND
  2. Rect: 292,187,732,487
  3. Style: 1
  4. Logic: Window
  5. HasTitleBar: FALSE
  6. HasZoomBox: FALSE
  7. HasCloseBox: TRUE
  8. HasGrowBox: FALSE
  9. MinSize: 100,50
  10. MaxSize: 32767,32767
  11. Name: Registered To
  12. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue¬global serialNum¬¬if objValue="Open" then ¬  centerWindow wdName,2.5¬  ¬  if (There is a cd fld "Superlatives" of cd 3) then¬    get cd fld "Superlatives" of cd 3¬    put random (the number of lines of it) + 1 into lineNum¬    put "by " & line lineNum of it && "Pete Bickford" into authorName¬    wsSet wdID,"Author","Text",authorName¬  end if¬  if serialNum = empty then¬    -- Demo version¬    wsSet wdID,3,"Text","Human Computing at (408) 266-6883"¬    ¬  else¬    wsSet wdID,1,"Text","Registered To"¬  end if¬end if¬¬--end windowEvent¬¬¬
  13. Params: i4_Text¬i2_Text¬i3_Text¬i6_Text
  14. Result: i6_Text¬i7_Text¬i8_Text
  15.  
  16. ItemType: TEXT
  17. Rect: 211,229,426,243
  18. TextFont: Geneva
  19. TextSize: 9
  20. AutoSize: FALSE
  21. Name: Message
  22. TextStyle: Bold,Underline
  23. TextAlign: Center
  24. Text: Demonstration Version
  25.  
  26. ItemType: TEXT
  27. Rect: 211,244,425,270
  28. TextFont: Geneva
  29. TextSize: 10
  30. AutoSize: FALSE
  31. Name: UserName
  32. TextAlign: Center
  33. Text: Some features are disabled—Contact Human Computing
  34. Script: --on closeField  wdID,wdName,objNo,objName,objValue¬put wsGet(wdID,"UserName","Text") into theUserName¬if theUserName ≠ empty then¬  -- Activate OK button¬  wsSet wdID,"OK","Disabled", "false"¬else¬  wsSet wdID,"OK","Disabled", "true"¬end if  ¬--end closeField
  35.  
  36. ItemType: TEXT
  37. Rect: 211,270,426,284
  38. TextFont: Geneva
  39. TextSize: 10
  40. AutoSize: FALSE
  41. Name: SerialNum
  42. TextAlign: Center
  43. Text: for a full version of ComicBase
  44.  
  45. ItemType: TEXT
  46. Rect: 211,75,426,93
  47. TextFont: Geneva
  48. TextSize: 12
  49. AutoSize: FALSE
  50. Name: theVersion
  51. TextStyle: Bold
  52. TextAlign: Center
  53. Text: Version 3.0b1
  54. Script: --on closeField  wdID,wdName,objNo,objName,objValue¬put wsGet(wdID,"UserName","Text") into theUserName¬if theUserName ≠ empty then¬  -- Activate OK button¬  wsSet wdID,"OK","Disabled", "false"¬else¬  wsSet wdID,"OK","Disabled", "true"¬end if  ¬--end closeField
  55.  
  56. ItemType: TEXT
  57. Rect: 211,54,426,70
  58. TextFont: Helvetica
  59. TextSize: 14
  60. AutoSize: FALSE
  61. Name: Author
  62. TextAlign: Center
  63. Text: by Big Pete Bickford
  64. Script: --on closeField  wdID,wdName,objNo,objName,objValue¬put wsGet(wdID,"UserName","Text") into theUserName¬if theUserName ≠ empty then¬  -- Activate OK button¬  wsSet wdID,"OK","Disabled", "false"¬else¬  wsSet wdID,"OK","Disabled", "true"¬end if  ¬--end closeField
  65.  
  66. ItemType: TEXT
  67. Rect: 211,13,426,49
  68. TextFont: Helvetica
  69. TextSize: 18
  70. Name: ProductName
  71. BlackColor: 0,0,-30584
  72. TextStyle: Bold
  73. TextAlign: Center
  74. Text: The ComicBase™ Encyclopedia of Comics
  75. Script: --on closeField  wdID,wdName,objNo,objName,objValue¬put wsGet(wdID,"UserName","Text") into theUserName¬if theUserName ≠ empty then¬  -- Activate OK button¬  wsSet wdID,"OK","Disabled", "false"¬else¬  wsSet wdID,"OK","Disabled", "true"¬end if  ¬--end closeField
  76.  
  77. ItemType: TEXT
  78. Rect: 211,100,426,218
  79. TextFont: Geneva
  80. TextSize: 10
  81. AutoSize: FALSE
  82. Name: PublishedBy
  83. TextAlign: Center
  84. Text: ©1993–1997 Human Computing¬4509 Thistle Drive¬San Jose, CA 95136-2014¬¬Tel: (408) 266-6883¬Fax: (408) 266-5869¬¬email: info@human-computing.com¬web: www.human-computing.com
  85. Script: --on closeField  wdID,wdName,objNo,objName,objValue¬put wsGet(wdID,"UserName","Text") into theUserName¬if theUserName ≠ empty then¬  -- Activate OK button¬  wsSet wdID,"OK","Disabled", "false"¬else¬  wsSet wdID,"OK","Disabled", "true"¬end if  ¬--end closeField
  86.  
  87. ItemType: PICT
  88. Rect: 10,10,196,290
  89. Name: ComicBase Cover
  90. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬wsSend wdID,"0","Close"¬¬--end mouseUp